home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.markadd < prev    next >
Text File  |  2000-04-19  |  1KB  |  50 lines
  1. G4C
  2. ; $VER: func.markadd Rev.014 by Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 255 75 "Neue Verzeichnismarkierung"
  4. WinType 11010000
  5. WinBackground IMAGE BG 0
  6. Winout "NIL:"
  7. WinOnMouse 5 5
  8.  
  9. xOnLoad
  10.     lvuse HTMLEXT 2
  11.     EXTRACT %DirName CLEAN beschreib
  12.     Update #This 1 $beschreib
  13.     EXTRACT %DirPath CLEAN pfad
  14.     Update #This 2 $pfad
  15.     GuiOpen #This
  16.  
  17. xTextIn 50 5 200 20 "Name" beschreib "" 255
  18.     GadID 1
  19.     GadFont "xHelvetica.font" "11" 000
  20.  
  21. xTextIn 50 25 200 20 "Pfad" pfad "" 255
  22.     GadID 2
  23.     GadFont "xHelvetica.font" "11" 000
  24.  
  25. xButton 5 50 70 20 "_1 Erzeugen"
  26.     GadFont "xHelvetica.font" "11" 000
  27.     GadKey "1"
  28.     if $*MODUS = "S"
  29.         lvuse HTMLEXT 2
  30.         lvadd ''
  31.         %DirName = $beschreib
  32.         %DirPath = $pfad
  33.         lvsort %DirPath
  34.         lvsave $*SITEPROJ
  35.     elseif $*MODUS = "D"
  36.         lvuse HTMLEXT 2
  37.         lvadd ''
  38.         %DirName = $beschreib
  39.         %DirPath = $pfad
  40.         lvsort %DirPath
  41.         lvsave $*SITEPROJDATA
  42.     endif
  43.     GuiQuit #This
  44.  
  45. xButton 180 50 70 20 "[_X] Abbrechen"
  46.     GadFont "xHelvetica.font" "11" 000
  47.     GadKey "x"
  48.     GuiQuit #This
  49.  
  50.